home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / pswdprot / module1.bas < prev    next >
BASIC Source File  |  1995-05-09  |  3KB  |  78 lines
  1. Declare Function showcursor Lib "User" (ByVal fShow As Integer) As Integer
  2. Declare Function SystemParametersInfo Lib "User" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As Any, ByVal fuWinIni As Integer) As Integer
  3. Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpSetString As String, ByVal lpFileName As String) As Integer
  4. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal Section As String, ByVal entry As String, ByVal default As String, ByVal txtbuffer As String, ByVal sizebuffer As Integer, ByVal filename As String) As Integer
  5.  
  6. Declare Function WinHelp Lib "User" (ByVal hWnd As Integer, ByVal lpHelpFile As String, ByVal wCommand As Integer, dwData As Any) As Integer
  7. Declare Function GetModuleUsage% Lib "Kernel" (ByVal hModule%)
  8.  
  9. Global xx As Integer
  10.  
  11. Global PasswordDslyd As Integer
  12. Global prev_PasswordDslyd As Integer
  13. Global time_cnt As Integer
  14. Global time_set As Integer
  15. Global mousecnt As Long
  16. Global Oldx As Integer
  17. Global Oldy As Integer
  18. Global FIRST_TIME As Integer
  19. Global tmp As Integer
  20.  
  21. Global Const HELP_CONTEXT = &H1
  22. Global Const HELP_QUIT = &H2
  23. Global Const HELP_CONTENTS = &H3
  24. Global Const HELP_HELPONHELP = &H4
  25.  
  26. Global PWProtected As String * 1
  27.  
  28. Sub All_Done ()
  29. If (PWProtected = "Y") Then
  30.     'x% = Shell("C:\WINDOWS\GETPSWD.EXE")
  31.     If (PasswordDslyd = 0) Then
  32.         x% = Shell("C:\WINDOWS\SYSTEM\GETPSWD.EXE")
  33.         PasswordDslyd = 1
  34.         While GetModuleUsage(x%) > 0    ' Has Shelled program finished?
  35.             'For f% = 1 To 500
  36.                 z% = DoEvents()              ' If not, yield to Windows.
  37.             'Next f%
  38.         Wend
  39.         mousecnt = showcursor(True)
  40.         If (mousecnt > 0) Then
  41.             result% = SystemParametersInfo(17, True, 0&, 0&)
  42.             End
  43.         Else
  44.             FIRST_TIME = True
  45.             mousecnt = showcursor(False)
  46.             PasswordDslyd = 0
  47.         End If
  48.     End If
  49. Else
  50.     mousecnt = showcursor(True)
  51.     While (mousecnt < 1)
  52.         mousecnt = showcursor(True)
  53.     Wend
  54.     result% = SystemParametersInfo(17, True, 0&, 0&)
  55.     End
  56. End If
  57. End Sub
  58.  
  59. Sub main ()
  60. A$ = Command$
  61. 'A$ = "/S"
  62. Select Case A$
  63.    Case "/s", "/S"
  64.       FIRST_TIME = True
  65.       result% = SystemParametersInfo(17, False, 0&, 0&)
  66.       mainfrm.Show
  67.       ok = DoEvents()
  68.    Case Else
  69.       configure.Show
  70.       If (configure.Check3D1.Value = -1) Then
  71.          configure.Command3D5.Enabled = True
  72.       Else
  73.          configure.Command3D5.Enabled = False
  74.       End If
  75. End Select
  76. End Sub
  77.  
  78.